home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / melee boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  42 lines
  1. 10 ifa=0thenpoke53280,0:poke53281,0:print"[147][129]"spc(16)"[205][160][197][160][204][160][197][160][197]":gosub280
  2. 20 ifa=0thenpoke147,0:sys57812"color.chase.o",8,1:sys62631:goto80
  3. 30 gosub500:poke46,65:poke48,64:poke50,65:poke52,129:load"melee",8
  4. 40 a$="story reader":goto251
  5. 80 l$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":fori=0to9:readc(i):next
  6. 85 q$="[145][221][155]                                  [146][221]"
  7. 90 print"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  8. 95 printq$
  9. 100 print"[145][221]  1. [196]are to [197]nter [199]ilgamesh      [146][221]"
  10. 110 print"[145][221]  2. [210]ead the [211]tory behind [205][197][204][197][197]  [146][221]"
  11. 120 print"[145][221]  3. [210]eturn [212]o [204][207][193][196][211][212][193][210]           [146][221]  "
  12. 135 printq$
  13. 140 print"[145][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][151]":s$=l$
  14. 150 fori=0to12step3:z=z+1:poke646,c(z):l$=mid$(l$,3):printspc(20-len(l$)/2)l$
  15. 160 next:z=0:poke251,2:poke252,4:poke253,36:poke254,7:sys49152
  16. 170 geta$:gosub390:sys49155:ifa$<"1"ora$>"3"thensys49155:goto170
  17. 180 onval(a$)goto30,40,230
  18. 220 goto170
  19. 230 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  20. 240 if er<>63 then print"[147]":end
  21. 250 a$="hello connect"
  22. 251 q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  23. 260 print"[158]load"q$a$q$",8"
  24. 270 print"run":poke631,13:poke632,13:poke198,2:end
  25. 280 poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  26. 290 fori=1to3:print"                                      ":next
  27. 300 print"        [208]ublished on [204][207][193][196][211][212][193][210] #61     "
  28. 310 print"      [211]ubscriptions 1-800-831-2694    "
  29. 320 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  30. 330 print"                                      "
  31. 340 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  32. 350 au$="[205][160][197][160][204][160][197][160][197]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  33. 360 au$="[194]y [195]leveland [194]lakemore  ([195]) 1989":poke214,18:print
  34. 370 printspc(20-len(au$)/2)"[152]"au$"":return
  35. 380 data15,3,14,6,14,6,3,15,3,14
  36. 390 print"":l$=s$:c=c+1:sys49155:ifc>5thenc=1
  37. 400 fori=0to12step3:poke646,c(z+c):l$=mid$(l$,3)
  38. 405 sys49155:printspc(20-len(l$)/2)l$
  39. 410 sys49155:z=z+1:next:z=0:return
  40. 500 fori=5to9:ss=40*i+1027:forii=sstoss+33:pokeii,160:next:next
  41. 510 poke214,6:print:printtab(12)"[155][204] [207] [193] [196] [201] [206] [199] . . .":return
  42.